 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim rptDS As New rptDataSet1
        Dim NewDR As DataRow
        For intLoop1 As Integer = 0 To Me.DataGridView1.RowCount - 2
            NewDR = rptDS.rptDt1.NewRow
            NewDR(0) = Me.DataGridView1.Item(0, intLoop1).Value
            NewDR(1) = Me.DataGridView1.Item(1, intLoop1).Value
            NewDR(2) = Me.DataGridView1.Item(2, intLoop1).Value
            NewDR(3) = Me.DataGridView1.Item(3, intLoop1).Value

            rptDS.rptDt1.Rows.Add(NewDR)
        Next
        '__________________________
       


        Dim NewDR2 As DataRow
        For intLoop As Integer = 0 To Me.DataGridView2.RowCount - 2
            NewDR2 = rptDS.rptDt2.NewRow
            NewDR2(0) = Me.DataGridView2.Item(0, intLoop).Value
            NewDR2(1) = Me.DataGridView2.Item(1, intLoop).Value
            NewDR2(2) = Me.DataGridView2.Item(2, intLoop).Value
            NewDR2(3) = Me.DataGridView2.Item(3, intLoop).Value
            NewDR2(4) = Me.DataGridView2.Item(4, intLoop).Value
            NewDR2(5) = Me.DataGridView2.Item(5, intLoop).Value
            rptDS.rptDt2.Rows.Add(NewDR2)
        Next

        Dim x As New Form
        Dim y As New CrystalDecisions.Windows.Forms.CrystalReportViewer
        Dim rpt As New Crt1
          x.Controls.Add(y)
      
        x.WindowState = FormWindowState.Maximized
        y.Dock = DockStyle.Fill
        y.DisplayGroupTree = False
        y.ReportSource = rpt
        rpt.SetDataSource(rptDS)
        '_____________________
       
        'rpt.SummaryInfo.ReportComments = Form23.TextBox2.Text
      
       
        x.ShowDialog()
    End Sub